home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group99a.txt / 000234_icon-group-sender _Thu Nov 18 08:17:23 1999.msg < prev    next >
Internet Message Format  |  2000-09-20  |  3KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id IAA26980
  4.     for icon-group-addresses; Thu, 18 Nov 1999 08:17:13 -0700 (MST)
  5. Message-Id: <199911181517.IAA26980@baskerville.CS.Arizona.EDU>
  6. From: swampler@noao.edu (Steve Wampler)
  7. Date: Wed, 17 Nov 1999 18:03:59 MST
  8. To: Kostas Oikonomou <oikonomou@att.com>
  9. Subject: Re: Strange table behavior
  10. Cc: icon-group@optima.CS.Arizona.EDU
  11. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  12. Status: RO
  13.  
  14. On Nov 17 at  5:48pm, Kostas Oikonomou writes:
  15. } When I run this program
  16. } 
  17. } procedure main()
  18. }   local T
  19. }   T := table([])
  20. }   put(T[1], "A")
  21. }   write("*T = ", *T)
  22. }   write(T[1][1])
  23. } end
  24. } 
  25. } I get
  26. } 
  27. } *T = 0
  28. } A
  29. } 
  30. } Can anyone explain to me what's happening here?  Does it have to do with
  31. } T being a table of lists?
  32.  
  33. I can explain it, but I can't decide if it should be classified as a bug
  34. or a "feature"...(right now I'm leaning toward "feature")
  35.  
  36. First:
  37.  
  38.    T := table([])
  39.  
  40. This creates a table with a specific list as the default value (note,
  41. you probably didn't mean this, see below).  Let's call this particular
  42. list L_001, so we can see what happens later.
  43.  
  44. If you were to ask for the size of the table at this time, you'd
  45. expect to see the value 0, because you haven't assigned anything to
  46. the table yet.
  47.  
  48. Now:
  49.  
  50.    put(T[1], "A")
  51.  
  52. This asks for the value of T[1].  Since you haven't assigned anything
  53. to the table yet, you get back the default value, which is L_001 in
  54. this case.  The string "A" is put into the list L_001, increasing the
  55. size of this list by 1.  *Note that you have not yet assigned anything
  56. to the table!*
  57.  
  58. So:
  59.  
  60.    write("*T = ", *T)
  61.  
  62. outputs the size of the table.  Since nothing has been assigned yet,
  63. it's still 0.
  64.  
  65. Finally:
  66.  
  67.    write(T[1][1])
  68.  
  69. this first gets the value of the element T[1].  Since nothing has been
  70. assigned to the table yet, you get the default value, good old list
  71. L_001.  Then the first element of L_001 is printed, producing the "A".
  72.  
  73. The output is correct, the size of the table has never changed, because
  74. nothing has ever been assigned to the table!  The fact that something
  75. was assigned to the list that was created and used as the default value
  76. for the table doesn't change this fact.
  77.  
  78. Ok, now - why isn't T := table([]) what you want.  Again, breaking it
  79. down:
  80.  
  81.     []          creates a list (L_001, say).
  82.  
  83. table(L_001) says to create a table and make list L_001 the default
  84. value.  Note that it doesn't say "create a new list each time a
  85. new table element is needed".  It says "use the list (L_001)" whenever
  86. you need the default value".  So, for example:
  87.  
  88.     put(T[1], "A")
  89.     put(T[2], "B")
  90.     put(T[3], "C")
  91.     write(T[4][2])
  92.  
  93. would output "B" and
  94.  
  95.     write(*(T["aslkdjfsa"])
  96.  
  97. would output "3"!  (It's the same list being produced as the
  98. default value, regardless of the reference key.)
  99.  
  100. What you want to do is something like:
  101.  
  102.    T := table()
  103.  
  104.    /T[1] := []        # create a brand new list and assign it only to T[1]
  105.                         #     if nothing has ever been assigned to T[1].
  106.    put(T[1], "A")       # put the A into this brand new list
  107.  
  108. I hope this helps!
  109.  
  110. -- 
  111. --
  112. Steve Wampler-  SOLIS Project, National Solar Observatory
  113. swampler@noao.edu
  114.